﻿' HINWEIS: Mit dem Befehl "Umbenennen" im Kontextmenü können Sie den Klassennamen "AFSForMetroService" sowohl im Code als auch in der SVC-Datei und der Konfigurationsdatei ändern.
' HINWEIS: Wählen Sie zum Starten des WCF-Testclients zum Testen dieses Diensts AFSForMetroService.svc oder AFSForMetroService.svc.vb im Projektmappen-Explorer aus, und starten Sie das Debuggen.
Public Class AFSForMetroService
    Implements IAFSForMetroService



    Sub New()
        If listofmandate.Count = 0 Then
            RefreshList()
        End If
    End Sub

    Public Function RetrieveAllSaveMandate() As List(Of Mandat) Implements IAFSForMetroService.RetrieveAllSaveMandate
        Return listofmandate
    End Function

    Public Sub AddNewMandate(a As List(Of Mandat)) Implements IAFSForMetroService.AddNewMandate
        For Each aa In a
            AddToXmlFile(aa.Datum, aa.StvoAnzahl, aa.PgAnzahl, aa.Type, aa.Rayon)
        Next
        RefreshList()
    End Sub

    Public Sub EditMandat(Mandat As Mandat) Implements IAFSForMetroService.EditMandat
        RemoveFromXML(Mandat.Datum)
        AddToXmlFile(Mandat.Datum, Mandat.StvoAnzahl, Mandat.PgAnzahl, Mandat.Type, Mandat.Rayon)
        RefreshList()
    End Sub

    Public Function SearchForMandate(datum As String, rayon As String, type As String) As List(Of Mandat) Implements IAFSForMetroService.SearchForMandate
        Return search(datum, rayon, type)
    End Function

    Public Sub RegisterForNotification(TypeName As String, AppId As String, ChannelAddress As String) Implements IAFSForMetroService.RegisterForNotification
        AddToXmlFile(AppId, TypeName, ChannelAddress)
    End Sub
End Class
